home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 16 / amigaformatcd16.iso / -in_the_mag- / top100_shareware / sound / ahi / ahi install next >
Text File  |  1997-04-18  |  35KB  |  1,412 lines
  1. ; $VER: AHI Install 4.3 (15.4.97)
  2. ; Description: Installer script for the AHI audio system (© 1996, 1997 Martin Blom).
  3. ; Done my Martin Blom, partly based on Teemu Suikki's install script.
  4. ; Public domain.
  5.  
  6. (set #complete 0)
  7. (set #completeadd (/ 1000 35))    ; There are 35 complete statements!
  8.  
  9. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  10.  
  11. (set #osversion (/ (getversion "exec.library" (resident)) 65536))
  12.  
  13.  
  14. ;**
  15. ;** All the strings
  16. ;**
  17.  
  18.     (set #t_welcome        (cat
  19.         " Welcome to the AHI installation. AHI is a retargetable"
  20.         " audio systems that can be used with both the built-in"
  21.         " sound chip (Paula) and several sound cards. This is version"
  22.         " 4."
  23.     ))
  24.     (set #t_oldinstaller    (cat
  25.         " You have an old version of the Installer. I'll probably"
  26.         " need version 43.3 or greater. You can continue anyway"
  27.         " but there is no guarantee it will work as it's supposed"
  28.         " to do.\n"
  29.         " Do you wish to continue anyway?"
  30.     ))
  31.     (set #t_oldinstallerhelp (cat
  32.         " The version of Installer you use is too old. You can"
  33.         " find a more recent version on the Internet, for example"
  34.         " on Aminet, in the util/misc directory. The current"
  35.         " file name is \"Installer-43_3.lha\":\n"
  36.         " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  37.     
  38.     ))
  39.     (set #t_installaborted    "Installation aborted.")
  40.  
  41.     (set #t_installing    "Installing ")
  42.     (set #t_installingdocs    "Installing developer documentation")
  43.     (set #t_installingincs    "Installing include files")
  44.     (set #t_installingsrc    "Installing example source code")
  45.     (set #t_nofiles        "No files to install.")
  46.  
  47.     (set #t_nohelp        "No help available.")
  48.  
  49.     (set #t_parts        "Which parts of AHI do you wish to install?")
  50.     (set #t_system        "System files")
  51.     (set #t_prefs        "Preferences program")
  52.     (set #t_audio        "The AUDIO handler");
  53.     (set #t_userdoc        "User's documentation")
  54.     (set #t_a-developer    "Application developer files")
  55.     (set #t_d-developer    "Driver developer files")
  56.     (set #t_userhelp    (cat
  57.         "System files:\n"
  58.         " The system files. This is the heart of AHI and must be"
  59.         " if for any of the other components to work.\n\n"
  60.         "Preferences program:\n"
  61.         " The preference program. Can be used to change many options"
  62.         " in AHI. This part of AHI requires BGUI to be installed.\n\n"
  63.         "The AUDIO handler:\n"
  64.         " Allows you to play and record samples with the 'copy'"
  65.         " command.\n\n"
  66.         "User's documentation:\n"
  67.         " An AmigaGuide® file descibing the AHI audio system and"
  68.         " its components.\n\n"
  69.     ))
  70.     (set #t_devhelp        (cat
  71.         "Application developer files:\n"
  72.         " Autodocs, include files, example source code etc."
  73.         " Required if you wish to use AHI in your own applications.\n\n"
  74.         "Driver developer files:\n"
  75.         " Autodocs, example source code etc. Only required"
  76.         " if you plan to write hardware drivers for sound"
  77.         " cards.\n\n"
  78.     ))
  79.  
  80.  
  81.     (set #t_languages    (cat
  82.         "Which languages do you want to install?"
  83.         " The built-in language is English."))
  84.     (set #t_languageshelp    (cat
  85.         " If your language is not in the list, the author of AHI"
  86.         " would be very happy if you made a translation. Edit the files"
  87.         " User/Catalogs/NewCatalog.ct and User/Catalogs/NewPrefsCatalog.ct"
  88.         " and send it to this address:\n"
  89.         " lcs@lysator.liu.se\n\n"
  90.     ))
  91.  
  92.     (set #t_drivers        (cat
  93.         "Which AHI drivers you want to install?"
  94.         " It's better to install only the drivers you need."))
  95.     (set #t_drivershelp    (cat
  96.         "Delfina:\n"
  97.         " Delfina DSP sound card.\n\n"
  98.         "Filesave:\n"
  99.         " Read/Write sample data to a file.\n\n"
  100.         "Paula:\n"
  101.         " Regular Amiga sound hardware.\n\n"
  102.         "Prelude:\n"
  103.         " Prelude sound card.\n\n"
  104.         "Toccata:\n"
  105.         " Toccata sound card.\n\n"
  106.         "Wavetools:\n"
  107.         " Wavetools sound card.\n\n"
  108.     ))
  109.  
  110.     (set #t_020ver        "Do you want to install the 68020-optimized binaries?")
  111.     (set #t_020verhelp    (cat
  112.         " 68020-optimized binaries are much faster, and often also"
  113.         " smaller than plain 68000 versions. In the case of AHI,"
  114.         " the 68000 versions have less features and reduced sound"
  115.         " quality. It is strongly suggested that you use the"
  116.         " 68020 versions of the binaries.\n\n"
  117.     ))
  118.  
  119.     (set #t_devfiles    "Which developer files do you wish to install?")
  120.     (set #t_devdocs        "Autodocs and AHI Developer's Guide")
  121.     (set #t_source        "Example source code")
  122.     (set #t_asm        "Assembler include files")
  123.     (set #t_cgen        "Generic C include files")
  124.     (set #t_e        "E module files")
  125.     (set #t_fd        "FD files")
  126.     (set #t_ade        "Extra ADE gcc include files")
  127.     (set #t_sas        "Extra SAS/C (and DICE) include files")
  128.     (set #t_storm        "Extra StormC include files")
  129.     (set #t_devfileshelp    (cat
  130.         "Autodocs and AHI Developer's Guide:\n"
  131.         " The autodocs and rules for programming AHI.\n\n"
  132.         "Example source code:\n"
  133.         " Some example programs, most of them are written in C, but"
  134.         " there are some assembler sources too.\n\n"
  135.         "Assembler include files:\n"
  136.         " Include files needed if you program in assembler.\n\n"
  137.         "Generic C include files:\n"
  138.         " Include files needed if you program in C.\n\n"
  139.         "E module files:\n"
  140.         " The module files to use with AmigaE.\n\n"
  141.         "FD files:\n"
  142.         " Can be used with the 'lvo' tool, or when you build a"
  143.         " hardware driver written in C.\n\n"
  144.         "Extra ADE gcc include files:\n"
  145.         " The special include files for gcc (inline, proto etc).\n\n" 
  146.         "Extra SAS/C (and DICE) include files:\n"
  147.         " The special include files for SAS/C (pragmas, proto etc)."
  148.         " They work with DCC too, but with no tag calls.\n\n"
  149.         "Extra StormC include files:\n"
  150.         " The special include files for StormC (pragma, proto etc).\n\n"
  151.     ))
  152.  
  153.  
  154.     (set #t_nodevs
  155.         "Cannot find the Devs: assign. Try a higher userlevel instead.")
  156.     (set #t_noc
  157.         "Cannot find the C: assign. Try a higher userlevel instead.")
  158.     (set #t_noprefs
  159.         "Cannot find the Sys:Prefs directory. Try a higher userlevel instead.")
  160.     (set #t_nol
  161.         "Cannot find the L: assign. Try a higher userlevel instead.")
  162.     (set #t_devspath    "Where do you want to install the system files?")
  163.     (set #t_devspathhelp    (cat
  164.         " The directory you select must be a part of your Devs: assign."
  165.         " The installer will copy ahi.device, the hardware drivers"
  166.         " and the audio mode description files to this directory."
  167.         " Subdirectories for the drivers and mode files will be"
  168.         " created.\n\n"
  169.     ))
  170.     (set #t_cpath        "Where do you want to install AddAudioModes?")
  171.     (set #t_cpathhelp    (cat
  172.         " AddAudioModes is a small command line utility that can"
  173.         " be used to manipulate the database which contains the"
  174.         " audio modes (much like the screenmode database)."
  175.         " CLI programs are normally located in the C: directory.\n\n"
  176.     ))
  177.  
  178.  
  179.     (set #t_localepath    "Where do you want to install the catalogs?")
  180.     (set #t_localepathhelp    (cat
  181.         " The directory you select must be a part of your Locale: assign."
  182.         " The installer will copy the catalogs you have selected to"
  183.         " subdirectories in this directory.\n\n"
  184.     ))
  185.  
  186.     (set #t_prefspath    "Where do you want to install the preferences program?")
  187.     (set #t_prefspathhelp    (cat
  188.         " The preferences program lets you configure AHI for your particular"
  189.         " configuration. You can select which sound hardware you prefer"
  190.         " to use, which physical inputs and outputs you wish to use"
  191.         " etc. Preferences programs are normally located in the"
  192.         " Sys:Prefs/ directory.\n"
  193.         " This program requires BGUI.\n\n"
  194.     ))
  195.  
  196.     (set #t_audiohelp    (cat
  197.         " The AUDIO handler is used to mount a device called AUDIO:. By"
  198.         " copying files to and from this device, you can play and record"
  199.         " raw sample data, IFF-AIFF or IFF-AIFC files.\n\n"
  200.     ))
  201.  
  202.     (set #t_lpath        "Where do you want to install the AUDIO handler?")
  203.     (set #t_lpathhelp    (cat
  204.         #t_audiohelp
  205.         " Handlers are normally located in the L: directory.\n\n"
  206.     ))
  207.  
  208.     (set #t_dosdevpath    "Where do you want to install the AUDIO mount entry?")
  209.     (set #t_dosdevpathhelp    (cat
  210.         #t_audiohelp
  211.         " Mount entries are normally located in the Devs:DOSDrivers"
  212.         " directory if they are to be mounted at boot time. If not, they"
  213.         " probably are in the SYS:Storage/DOSDrivers directory.\n\n"
  214.     ))
  215.  
  216.     (set #t_dosdriver    "Do you want the handler to be activated at boot time?")
  217.     (set #t_dosdriverhelp    (cat
  218.         " If you want, the AUDIO: device can be made avaliable as soon as"
  219.         " your system has been started. This saves you the effort of"
  220.         " having to mount it manually when you want to use it. It does"
  221.         " not require much memory to mount the device and it is therefor"
  222.         " suggested that you select 'Yes'.\n\n"
  223.     ))
  224.  
  225.     (set #t_userdocpath    "Where do you want to install the user documentation?")
  226.     (set #t_userdocpathhelp    (cat
  227.         " This is an AmigaGuide® file descibing the AHI audio system"
  228.         " and its components.\n\n"
  229.     ))
  230.  
  231.     (set #t_srcpath        (cat
  232.         " Where do you want to install the example source code?"
  233.         " A directory called AHI will be created there."
  234.     ))
  235.     (set #t_srcpathhelp    (cat
  236.         " The example sources, in both C and assembler, will be"
  237.         " stored in a subdirectory called AHI. Any files currently"
  238.         " present in the AHI directory will be deleted!\n\n"
  239.     ))
  240.     (set #t_oldsrc        (cat
  241.         " There is already a directory called AHI here."
  242.         " All files in it will be deleted."
  243.     ))
  244.  
  245.     (set #t_devdocspath    " Where do you want to store the developer documentation?")
  246.     (set #t_devdocspathhelp    (cat
  247.         " The installer will place the autodoc files and the"
  248.         " AHI Developer's Guide in the directory you select.\n\n"
  249.     ))
  250.  
  251.     (set #t_aincpath    " Where are your assembler include files located?")
  252.     (set #t_aincpathhelp    (cat
  253.         " The installer will place the assembler include files"
  254.         " in subdirectories (lvo, devices and libraries)"
  255.         " of the one you select.\n\n"
  256.     ))
  257.  
  258.     (set #t_fdpath        " Where do you keep your FD-files?")
  259.     (set #t_fdpathhelp    (cat
  260.         " FD-files are files describing a library's or a device's"
  261.         " functions. They can be used with the 'lvo' program, and"
  262.         " can also be useful if you write hardware drivers.\n\n"
  263.     ))
  264.  
  265.     (set #t_cincpath    " Where are your C include files located?")
  266.     (set #t_cincpathhelp    (cat
  267.         " The installer will place the generic C include files"
  268.         " in subdirectories (clib, devices and libraries)"
  269.         " of the one you select.\n\n"
  270.     ))
  271.  
  272.     (set #t_emodpath    " Where are your E module files located?")
  273.     (set #t_emodpathhhelp    (cat
  274.         " The installer will place the E module files in the directory"
  275.         " and in subdirectories (devices and libraries)"
  276.         " of the one you select.\n\n"
  277.     ))
  278.  
  279.     (set #t_adeincpath    " Where do you want to place the ADE gcc include files?")
  280.     (set #t_adeincpathhelp    (cat
  281.         " gcc needs some extra files to find out which registers"
  282.         " to use when calling AHI functions. That information is"
  283.         " located in these files, which will be copied to the"
  284.         " inline, pragmas and proto directories.\n\n"
  285.     ))
  286.  
  287.     (set #t_sasincpath    " Where do you want to place the SAS/C (and DICE) include files?")
  288.     (set #t_sasincpathhelp    (cat
  289.         " SAS/C (and DICE) needs some extra files to find out which registers"
  290.         " to use when calling AHI functions. That information is"
  291.         " located in these files, which will be copied to the"
  292.         " pragmas and proto directories.\n\n"
  293.     ))
  294.  
  295.     (set #t_stormincpath    " Where do you want to place the StormC include files?")
  296.     (set #t_stormincpathhelp (cat
  297.         " StormC needs some extra files to find out which registers"
  298.         " to use when calling AHI functions. That information is"
  299.         " located in these files, which will be copied to the"
  300.         " pragma and proto directories.\n\n"
  301.     ))
  302.  
  303.     (set #t_ahidevhelp    (cat
  304.         " ahi.device is the heart of the AHI"
  305.         " audio system. This is the only part"
  306.         " that other programs knows anything about.\n\n"
  307.     ))
  308.  
  309.     (set #t_runaddmodes    (cat
  310.         " About to run AddAudioModes to recreate"
  311.         " the audio modes database."
  312.     ))
  313.  
  314.  
  315.     (set #t_overwritemode1
  316.         " There is already a copy of the audio mode descriptor ")
  317.     (set #t_overwritemode2 " present in ")
  318.     (set #t_overwritemode3    (cat
  319.         ".\n\n"
  320.         " Do you want to overwrite it?"
  321.         " All changes you have done to to it will be lost!"
  322.     ))
  323.  
  324. ;(if (= @language "svenska")
  325. ;(
  326. ;))
  327.  
  328.  
  329. ;**
  330. ;** Procedures
  331. ;**
  332.  
  333. (procedure P_INSTDRIVER #pi_audioname #pi_modename
  334. (
  335.     (set #pi_drvpath (tackon #devspath "AHI/"))
  336.     (set #pi_modepath (tackon #devspath "AudioModes/"))
  337.     (if (not (exists #pi_drvpath))
  338.         (makedir #pi_drvpath)
  339.     )
  340.     (if (not (exists #pi_modepath))
  341.         (makedir #pi_modepath)
  342.     )
  343.  
  344.     (if (exists (tackon "User/Devs/AHI" (cat #pi_audioname #ver68k)))
  345.     (
  346.         (set #pi_audionamesrc (cat #pi_audioname #ver68k))
  347.     )
  348.     (
  349.         (set #pi_audionamesrc #pi_audioname)
  350.     ))
  351.  
  352.     (copylib
  353.         (help (cat #t_drivershelp @copylib-help))
  354.         (prompt (cat #t_installing #pi_drvpath #pi_audionamesrc))
  355.         (source (tackon "User/Devs/AHI" #pi_audionamesrc))
  356.         (dest #pi_drvpath)
  357.         (newname #pi_audioname)
  358.         (confirm)
  359.     )
  360.  
  361.     (set #pt_copymode 0)
  362.     (if (exists (tackon #pi_modepath #pi_modename))
  363.     (if (exists (tackon #pi_modepath #pi_modename))
  364.     (
  365. ;        (if (askbool
  366. ;            (prompt    (cat #t_overwritemode1
  367. ;                #pi_modename
  368. ;                #t_overwritemode2
  369. ;                #pi_drvpath
  370. ;                #t_overwritemode3
  371. ;            ))
  372. ;            (default 1)
  373. ;            (help #t_drivershelp)
  374. ;        )
  375. ;        (
  376.             (set #pt_copymode 1)
  377. ;        ))
  378.     ))
  379.     ( ; else (exists)
  380.         (set #pt_copymode 1)
  381.     ))
  382.     (if (= #pt_copymode 1)
  383.     (
  384.         (copyfiles 
  385.             (prompt (cat #t_installing #pi_modepath #pi_modename))
  386.             (source (tackon "User/Devs/AudioModes" #pi_modename))
  387.             (dest #pi_modepath)
  388.         )
  389.     ))
  390. ))
  391.  
  392. (procedure P_INSTCATALOG #pi_language
  393. (
  394.     (set #pi_dest (tackon (tackon #localepath "Catalogs") #pi_language))
  395.     (copyfiles 
  396.         (prompt (cat #t_installing (tackon #pi_dest #pi_language)))
  397.         (source (tackon "User/Catalogs" #pi_language))
  398.         (dest #pi_dest)
  399.         (all)
  400.     )
  401. ))
  402.  
  403. ;** 
  404. ;** Main installation procedure starts here...
  405. ;**
  406.  
  407. (set    #system        1    ;System files
  408.     #prefs        2    ;Preferences program
  409.     #audio        4    ;The AHI handler
  410.     #userdoc    8    ;User documentation
  411.     #a-developer    16    ;App. programmers developer files
  412.     #d-developer    32    ;Drv. programmers developer files
  413. )
  414. (set    #delfina    1    ;Sound card drivers
  415.     #filesave    2
  416.     #paula        4
  417.     #prelude    8
  418.     #toccata    16
  419.     #wavetools    32
  420. )
  421.  
  422. (set    #devdocs    1    ;Autodocs and programming guidelines
  423.     #source        2    ;Example source code
  424.     #asm        4    ;Assembler include files
  425.     #cgen        8    ;Generic C include files
  426.     #e        16    ;E module files
  427.     #fd        32    ;FD-files
  428.     #ade        64    ;ADE gcc include files
  429.     #sas        128    ;SAS/C include files
  430.     #storm        256    ;StormC include files
  431. )
  432.  
  433. ;**
  434. ;** Make sure we're using a recent version of the installer
  435. ;**
  436.  
  437. (if (< @installer-version (+ (* 43 65536) 3))
  438. (
  439.     (if (not (askbool
  440.         (prompt #t_oldinstaller)
  441.         (help #t_oldinstallerhelp)
  442.     ))
  443.     (
  444.         (abort (cat #t_installaborted "\n\n" #t_oldinstallerhelp))
  445.     ))
  446. ))
  447.  
  448. ;**
  449. ;** Welcome!
  450. ;**
  451.  
  452. (welcome #t_welcome)
  453.  
  454. ;**
  455. ;** Find out which parts should be installed
  456. ;**
  457.  
  458. (set #default 0 #helptext "")
  459. (set #parts 0)
  460.  
  461. (if (exists "User")
  462. (
  463.     (set #helptext (cat #helptext #t_userhelp))
  464.     (set #default (bitor #default #system #prefs #audio #userdoc))
  465. )
  466. ( ; else
  467.     (set #t_system "")
  468.     (set #t_prefs "")
  469.     (set #t_audio "")
  470.     (set #t_userdoc "")
  471.  
  472. ))
  473.  
  474. (if (exists "Developer")
  475. (
  476.     (set #helptext (cat #helptext #t_devhelp))
  477.     (set #default (bitor #default #a-developer))
  478. )
  479. ( ; else
  480.     (set #t_a-developer "")
  481.     (set #t_d-developer "")
  482. ))
  483.  
  484. (if (= #default 0)
  485.     (abort #t_nofiles)
  486. )
  487.  
  488. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  489.  
  490. ;**
  491. ;**  Ask which parts should be installed
  492. ;**
  493.  
  494. (if (= @user-level 0)
  495. (
  496.     (set #parts #default)
  497. )
  498. ( ; Average or Expert
  499.     (set #parts (askoptions
  500.         (prompt #t_parts)
  501.         (help (cat #helptext @askoptions-help))
  502.         (choices #t_system #t_prefs #t_audio #t_userdoc #t_a-developer #t_d-developer)
  503.         (default #default)
  504.     ))
  505. ))
  506.  
  507.  
  508. ;**
  509. ;**  Activate the AUDIO handler at boot time?
  510. ;**
  511.  
  512. (set #dosdevpath    "Devs:DOSDrivers")
  513.  
  514. (if (and (bitand #parts #audio) (>= @user-level 1))
  515.     (if (not (askbool
  516.         (prompt #t_dosdriver)
  517.         (help (cat #t_dosdriverhelp @askbool-help))
  518.         (default 1)))
  519.     (
  520.         (set #dosdevpath "SYS:Storage/DOSDrivers")
  521.     ))
  522. )
  523.  
  524. ;**
  525. ;**  Ask which languages should be installed
  526. ;**
  527.  
  528. (set    #deutsch    1
  529.     #español    2
  530.     #français    4
  531.     #greek        8
  532.     #íslenska    16
  533.     #italiano    32
  534.     #nederlands    64
  535.     #norsk        128
  536.     #português    256
  537.     #svenska    512
  538.     #suomi        1024
  539. )
  540.  
  541. (set    #t_deutsch    "Deutsch"
  542.     #t_español    "Español"
  543.     #t_français    "Français"
  544.     #t_greek    "Greek"
  545.     #t_íslenska    "Íslenska"
  546.     #t_italiano    "Italiano"
  547.     #t_nederlands    "Nederlands"
  548.     #t_norsk    "Norsk"
  549.     #t_português    "Português"
  550.     #t_svenska    "Svenska"
  551.     #t_suomi    "Suomi"
  552. )
  553.  
  554.  
  555. (set    #default 0)
  556.  
  557. (if (not (exists "User/Catalogs/deutsch"))    (set #t_deutsch ""))
  558. (if (not (exists "User/Catalogs/español"))    (set #t_español ""))
  559. (if (not (exists "User/Catalogs/français"))    (set #t_français ""))
  560. (if (not (exists "User/Catalogs/greek"))    (set #t_greek ""))
  561. (if (not (exists "User/Catalogs/íslenska"))    (set #t_íslenska ""))
  562. (if (not (exists "User/Catalogs/italiano"))    (set #t_italiano ""))
  563. (if (not (exists "User/Catalogs/nederlands"))    (set #t_nederlands ""))
  564. (if (not (exists "User/Catalogs/norsk"))    (set #t_norsk ""))
  565. (if (not (exists "User/Catalogs/português"))    (set #t_português ""))
  566. (if (not (exists "User/Catalogs/svenska"))    (set #t_svenska ""))
  567. (if (not (exists "User/Catalogs/suomi"))    (set #t_suomi ""))
  568.  
  569. (if (and (exists "LOCALE:Languages/deutsch.language" (noreq)) (not (= #t_deutsch "")))
  570.     (set #default (bitor #default #deutsch))
  571. )
  572. (if (and (exists "LOCALE:Languages/español.language" (noreq)) (not (= #t_español "")))
  573.     (set #default (bitor #default #español))
  574. )
  575. (if (and (exists "LOCALE:Languages/français.language" (noreq)) (not (= #t_français "")))
  576.     (set #default (bitor #default #français))
  577. )
  578. (if (and (exists "LOCALE:Languages/greek.language" (noreq)) (not (= #t_greek "")))
  579.     (set #default (bitor #default #greek))
  580. )
  581. (if (and (exists "LOCALE:Languages/íslenska.language" (noreq)) (not (= #t_íslenska "")))
  582.     (set #default (bitor #default #íslenska))
  583. )
  584. (if (and (exists "LOCALE:Languages/italiano.language" (noreq)) (not (= #t_italiano "")))
  585.     (set #default (bitor #default #italiano))
  586. )
  587. (if (and (exists "LOCALE:Languages/nederlands.language" (noreq)) (not (= #t_nederlands "")))
  588.     (set #default (bitor #default #nederlands))
  589. )
  590. (if (and (exists "LOCALE:Languages/norsk.language" (noreq)) (not (= #t_norsk "")))
  591.     (set #default (bitor #default #norsk))
  592. )
  593. (if (and (exists "LOCALE:Languages/português.language" (noreq)) (not (= #t_portugues "")))
  594.     (set #default (bitor #default #portugues))
  595. )
  596. (if (and (exists "LOCALE:Languages/svenska.language" (noreq)) (not (= #t_svenska "")))
  597.     (set #default (bitor #default #svenska))
  598. )
  599. (if (and (exists "LOCALE:Languages/suomi.language" (noreq)) (not (= #t_suomi "")))
  600.     (set #default (bitor #default #suomi))
  601. )
  602.  
  603. (if (bitand #parts (bitor #system #prefs))
  604.     (if (= @user-level 0)
  605.     (
  606.         (set #languages #default)
  607.     )
  608.     ( ; Average or Expert
  609.         (set #languages (askoptions
  610.             (prompt #t_languages)
  611.             (help (cat #t_languageshelp @askoptions-help))
  612.             (choices #t_deutsch  #t_español #t_français
  613.                      #t_greek #t_íslenska #t_italiano #t_nederlands
  614.                      #t_norsk #t_português #t_svenska
  615.                      #t_suomi)
  616.             (default #default)
  617.         ))
  618.     ))
  619. )
  620.  
  621.  
  622. ;**
  623. ;** Find out which drivers should be installed (if any)
  624. ;**
  625.  
  626. (set    #default #filesave)
  627. (set    #drivers 0)
  628.  
  629. (if (exists "Libs:delfina.library" (noreq))
  630.     (set #default (bitor #default #delfina))
  631. )
  632. (if (<> (database "graphics-mem") 0)            ; Test for not Draco...
  633.     (set #default (bitor #default #paula))
  634. )
  635. (if (exists "Libs:prelude.library" (noreq))
  636.     (set #default (bitor #default #prelude))
  637. )
  638. (if (exists "Libs:toccata.library" (noreq))
  639.     (set #default (bitor #default #toccata))
  640. )
  641. (if (exists "Devs:dad_audio.device" (noreq)) 
  642.     (set #default (bitor #default #wavetools))
  643. )
  644.  
  645. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  646.  
  647. (if (bitand #parts #system)
  648.     (if (= @user-level 0)
  649.     (
  650.         (set #drivers #default)
  651.     )
  652.     ( ; Average or Expert
  653.         (set #drivers (askoptions
  654.             (prompt #t_drivers)
  655.             (help (cat #t_drivershelp @askoptions-help))
  656.             (choices "Delfina" "Filesave" "Paula" "Prelude" "Toccata" "Wavetools")
  657.             (default #default)
  658.         ))
  659.     ))
  660. )
  661.  
  662. ;**
  663. ;**  Install 020-versions of the binaries?
  664. ;**
  665.  
  666. (if (patmatch "68000|68010" (database "cpu"))
  667. (
  668.     (set #ver68k ".000")
  669. )
  670. (
  671.     (set #ver68k "")
  672. ))
  673.  
  674. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  675.  
  676. (if (and (bitand #parts #system) (= #ver68k "") (>= @user-level 1))
  677.     (if (not (askbool
  678.         (prompt #t_020ver)
  679.         (help (cat #t_020verhelp @askbool-help))
  680.         (default 1)))
  681.     (
  682.         (set #ver68k ".000")
  683.     ))
  684. )
  685.  
  686.  
  687. ;**
  688. ;** Find out which developer files should be installed
  689. ;**
  690.  
  691. (set    #default (bitor #devdocs #source #asm #cgen #fd))
  692. (set    #devfiles 0)
  693.  
  694. (if (exists "ADE:" (noreq))
  695.     (set #default (bitor #default #ade))
  696. )
  697.  
  698. (if (exists "SC:" (noreq))
  699.     (set #default (bitor #default #sas))
  700. )
  701.  
  702. (if (exists "STORMC:" (noreq))
  703.     (set #default (bitor #default #storm))
  704. )
  705.  
  706. (if (exists "EMODULES:" (noreq))
  707.     (set #default (bitor #default #e))
  708. )
  709.  
  710. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  711.  
  712. (if (bitand #parts (bitor #a-developer #d-developer))
  713. (
  714.     (if (= @user-level 0)
  715.     (
  716.         (set #devfiles #default)
  717.     )
  718.     ( ; Average or Expert
  719.         (set #devfiles (askoptions
  720.             (prompt #t_devfiles)
  721.             (help (cat #t_devfileshelp @askoptions-help))
  722.             (choices #t_devdocs #t_source #t_asm #t_cgen #t_e #t_fd #t_ade #t_sas #t_storm )
  723.             (default #default)
  724.         ))
  725.     ))
  726. ))
  727.  
  728. ;**
  729. ;** Find out where the files should be installed
  730. ;**
  731.  
  732. (set #devspath        "Devs:")
  733. (set #cpath        "C:")
  734. (set #prefspath        "SYS:Prefs/")
  735. (set #lpath        "L:")
  736. (set #localepath    "Locale:")
  737.  
  738. (set #incpath        @default-dest)
  739. (set #adeincpath    "ADE:include/")
  740. (set #sasincpath    "Include:")
  741. (set #stormincpath    "StormC:Include")
  742. (set #fdpath        "FD:")
  743. (set #emodpath        "EMODULES:")
  744.  
  745. (if (exists #devspath (noreq)) (set #devspath (expandpath #devspath)))
  746. (if (exists #cpath (noreq)) (set #cpath (expandpath #cpath)))
  747. (if (exists #prefspath (noreq)) (set #prefspath (expandpath #prefspath)))
  748. (if (exists #lpath (noreq)) (set #lpath (expandpath #lpath)))
  749. (if (exists #localepath (noreq)) (set #localepath (expandpath #localepath)))
  750.  
  751. (if (not (exists "Help:" (noreq)))
  752. (
  753.     (if (bitand #parts #prefs)
  754.         (set #userdocpath #prefspath)
  755.         (set #userdocpath @default-dest)
  756.     )
  757. )
  758. (
  759.     (if (>= #osversion 38)
  760.     (
  761.         (set #userdocpath "Help:")
  762.     ))
  763. ))
  764.  
  765. (if (bitand #devfiles #ade)
  766. (
  767.     (set #incpath "ADE:os-include/")
  768. ))
  769. (if (exists "Include:" (noreq))
  770. (
  771.     (set #incpath "Include:")
  772. ))
  773.  
  774. (if (= @user-level 0)
  775. (
  776.     (if (and (bitand #parts #system) (not (exists #devspath (noreq))))
  777.     (
  778.         (abort #t_nodevs)
  779.     ))
  780.     (if (and (bitand #parts #system) (not (exists #cpath (noreq))))
  781.     (
  782.         (abort #t_noc)
  783.     ))
  784.     (if (and (bitand #parts #prefs) (not (exists #prefspath (noreq))))
  785.         (
  786.         (abort #t_noprefs)
  787.     ))
  788.     (if (and (bitand #parts #audio) (not (exists #lpath (noreq))))
  789.     (
  790.         (abort #t_nol)
  791.     ))
  792.  
  793.     (set #srcpath (tackon @default-dest "AHI/"))
  794.     (if (exists #srcpath)
  795.     (
  796.         (delete #srcpath
  797.             (all)
  798.             (optional "force")
  799.         )
  800.     ))
  801.  
  802.     (set #devdocspath (tackon #srcpath "docs/"))
  803.     (if (=     #userdocpath @default-dest)
  804.     (
  805.         (set #userdocpath #devdocspath)
  806.     ))
  807.     (if (= #incpath @default-dest)
  808.     (
  809.         (set #incpath (tackon #srcpath "include/"))
  810.     ))
  811.     (set #aincpath #incpath)
  812.     (set #cincpath #incpath)
  813.     (if (not (exists #sasincpath (noreq)))
  814.     (
  815.         (set #sasincpath #cincpath)
  816.     ))
  817.     (if (not (exists #stormincpath (noreq)))
  818.     (
  819.         (set #stormincpath #cincpath)
  820.     ))
  821.     (if (not (exists #fdpath (noreq)))
  822.     (
  823.         (set #fdpath (tackon #aincpath "fd/"))
  824.     ))
  825.     (if (not (exists #emodpath (noreq)))
  826.     (
  827.         (set #emodpath #cincpath)
  828.     ))
  829.  
  830.     (makedir #srcpath (infos))
  831.     (set @default-dest #srcpath)
  832.  
  833. ; Match the number of completes in the 'else' section...
  834.     (complete (/ #complete 10)) (set #complete (+ #complete (* 15 #completeadd)))
  835.  
  836. )
  837. ( ; Average or Expert
  838.  
  839.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  840.  
  841.     (if (and (bitand #parts #system)
  842.              (or (not (exists #devspath (noreq))) (= @user-level 2) ))
  843.     (
  844.         (set #devspath (askdir 
  845.             (prompt #t_devspath)
  846.             (help (cat #t_devspathhelp @askdir-help))
  847.             (default #devspath)
  848.         ))
  849.     ))
  850.  
  851.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  852.  
  853.     (if (and (bitand #parts #system)
  854.              (or (not (exists #cpath (noreq))) (= @user-level 2) ))
  855.     (
  856.         (set #cpath (askdir 
  857.             (prompt #t_cpath)
  858.             (help (cat #t_cpathhelp @askdir-help))
  859.             (default #cpath)
  860.         ))
  861.     ))
  862.  
  863.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  864.  
  865.     (if (and (<> #languages 0)
  866.              (or (not (exists #localepath (noreq))) (= @user-level 2) ))
  867.     (
  868.         (set #localepath (askdir 
  869.             (prompt #t_localepath)
  870.             (help (cat #t_localepathhelp @askdir-help))
  871.             (default #localepath)
  872.         ))
  873.     ))
  874.  
  875.  
  876.  
  877.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  878.  
  879.     (if (and (bitand #parts #prefs)
  880.              (or (not (exists #prefspath (noreq))) (= @user-level 2) ))
  881.     (
  882.         (set #prefspath (askdir 
  883.             (prompt #t_prefspath)
  884.             (help (cat #t_prefspathhelp @askdir-help))
  885.             (default #prefspath)
  886.         ))
  887.     ))
  888.  
  889.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  890.  
  891.     (if (and (bitand #parts #audio)
  892.              (or (not (exists #lpath (noreq))) (= @user-level 2) ))
  893.     (
  894.         (set #lpath (askdir 
  895.             (prompt #t_lpath)
  896.             (help (cat #t_lpathhelp @askdir-help))
  897.             (default #lpath)
  898.         ))
  899.     ))
  900.  
  901.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  902.  
  903.     (if (and (bitand #parts #audio)
  904.              (or (not (exists #dosdevpath (noreq))) (= @user-level 2) ))
  905.     (
  906.         (set #dosdevpath (askdir 
  907.             (prompt #t_dosdevpath)
  908.             (help (cat #t_dosdevpathhelp @askdir-help))
  909.             (default #dosdevpath)
  910.         ))
  911.     ))
  912.  
  913.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  914.  
  915.     (if (and (bitand #parts #userdoc)
  916.              (or (= #userdocpath @default-dest) (= @user-level 2) ))
  917.     (
  918.         (set #userdocpath (askdir 
  919.             (prompt #t_userdocpath)
  920.             (help (cat #t_userdocpathhelp @askdir-help))
  921.             (default #userdocpath)
  922.         ))
  923.     ))
  924.  
  925.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  926.  
  927.     (if (bitand #devfiles #source)
  928.     (
  929.         (set #srcpath (askdir 
  930.             (prompt #t_srcpath)
  931.             (help (cat #t_srcpathhelp @askdir-help))
  932.             (default @default-dest)
  933.         ))
  934.         (set #srcpath (tackon #srcpath "AHI/"))
  935.         (if (exists #srcpath)
  936.         (
  937.             (delete #srcpath
  938.                 (all)
  939.                 (confirm average)
  940.                 (optional "force")
  941.                 (prompt #t_oldsrc)
  942.                 (help #t_nohelp)
  943.             )
  944.         ))
  945.         (makedir #srcpath (infos))
  946.         (set @default-dest #srcpath)
  947.     ))
  948.  
  949.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  950.  
  951.     (if (bitand #devfiles #devdocs)
  952.     (
  953.         (set #devdocspath (askdir 
  954.             (prompt #t_devdocspath)
  955.             (help (cat #t_devdocspathhelp @askdir-help))
  956.             (default (tackon @default-dest "docs/"))
  957.             (newpath)
  958.         ))
  959.     ))
  960.  
  961.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  962.  
  963.     (if (bitand #devfiles #asm)
  964.     (
  965.         (set #aincpath (askdir 
  966.             (prompt #t_aincpath)
  967.             (help (cat #t_aincpathhelp @askdir-help))
  968.             (default #incpath)
  969.         ))
  970.  
  971.     ))
  972.  
  973.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  974.  
  975.     (if (bitand #devfiles #fd)
  976.     (
  977.         (if (not (exists #fdpath (noreq)))
  978.         (
  979.             (set #fdpath (tackon #aincpath "fd/"))
  980.         ))
  981.         (set #fdpath (askdir 
  982.             (prompt #t_fdpath)
  983.             (help (cat #t_fdpathhelp @askdir-help))
  984.             (default #fdpath)
  985.         ))
  986.     ))
  987.  
  988.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  989.  
  990.     (if (bitand #devfiles #cgen)
  991.     (
  992.         (set #cincpath (askdir 
  993.             (prompt #t_cincpath)
  994.             (help (cat #t_cincpathhelp @askdir-help))
  995.             (default #incpath)
  996.         ))
  997.     ))
  998.  
  999.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1000.  
  1001.     (if (bitand #devfiles #e)
  1002.     (
  1003.         (set #emodpath (askdir 
  1004.             (prompt #t_emodpath)
  1005.             (help (cat #t_emodpathhelp @askdir-help))
  1006.             (default #emodpath)
  1007.         ))
  1008.     ))
  1009.  
  1010.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1011.  
  1012.     (if (bitand #devfiles #ade)
  1013.     (
  1014.         (set #adeincpath (askdir 
  1015.             (prompt #t_adeincpath)
  1016.             (help (cat #t_adeincpathhelp @askdir-help))
  1017.             (default #adeincpath)
  1018.         ))
  1019.     ))
  1020.  
  1021.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1022.  
  1023.     (if (bitand #devfiles #sas)
  1024.     (
  1025.         (set #sasincpath (askdir 
  1026.             (prompt #t_sasincpath)
  1027.             (help (cat #t_sasincpathhelp @askdir-help))
  1028.             (default #sasincpath)
  1029.         ))
  1030.     ))
  1031.  
  1032.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1033.  
  1034.     (if (bitand #devfiles #storm)
  1035.     (
  1036.         (set #stormincpath (askdir 
  1037.             (prompt #t_stormincpath)
  1038.             (help (cat #t_stormincpathhelp @askdir-help))
  1039.             (default #stormincpath)
  1040.         ))
  1041.     ))
  1042. ))
  1043.  
  1044.  
  1045. ;******************************************************************************
  1046. ;**** Install *****************************************************************
  1047. ;******************************************************************************
  1048.  
  1049.  
  1050. ;**
  1051. ;** Install the prefs program
  1052. ;**
  1053.  
  1054. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1055. (if (bitand #parts #prefs)
  1056. (
  1057.     (copylib
  1058.         (help (cat #t_prefspathhelp @copylib-help))
  1059.         (prompt #t_installing "AHI")
  1060.         (source "User/Prefs/AHI")
  1061.         (dest #prefspath)
  1062.         (confirm)
  1063.         (infos)
  1064.         (noposition)
  1065.     )
  1066.     (protect (tackon #cpath "AHI") "+e")
  1067.  
  1068.     (set @default-dest #prefspath)
  1069. ))
  1070.  
  1071. ;**
  1072. ;** Install the audio handler
  1073. ;**
  1074.  
  1075. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1076. (if (bitand #parts #audio)
  1077. (
  1078.     (copylib
  1079.         (help (cat #t_lpathhelp @copylib-help))
  1080.         (prompt #t_installing "AHI-Handler")
  1081.         (source "User/L/AHI-Handler")
  1082.         (dest #lpath)
  1083.         (confirm)
  1084.         (infos)
  1085.         (noposition)
  1086.     )
  1087.     (protect (tackon #lpath "AHI-Handler") "+e")
  1088.  
  1089.     (copylib
  1090.         (help (cat #t_dosdevpathhelp @copylib-help))
  1091.         (prompt #t_installing "AUDIO")
  1092.         (source "User/Devs/DOSDrivers/AUDIO")
  1093.         (dest #dosdevpath)
  1094.         (confirm)
  1095.         (infos)
  1096.         (noposition)
  1097.     )
  1098.  
  1099.     (set @default-dest #lpath)
  1100. ))
  1101.  
  1102. ;**
  1103. ;** Install the user documentation
  1104. ;**
  1105.  
  1106. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1107. (if (bitand #parts #userdoc)
  1108. (
  1109.     (copyfiles
  1110.         (help (cat #t_userdocpathhelp @copylib-help))
  1111.         (prompt #t_installing "ahi.guide")
  1112.         (source "User/Help/ahi.guide")
  1113.         (dest #userdocpath)
  1114.         (infos)
  1115.         (noposition)
  1116.     )
  1117.  
  1118.     (set @default-dest #userdocpath)
  1119. ))
  1120.  
  1121.  
  1122. ;**
  1123. ;** Install ahi.device, AddAudioModes and drivers
  1124. ;**
  1125.  
  1126. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1127. (if (bitand #parts #system)
  1128. (
  1129.  
  1130. ;** ahi.device
  1131.     (copylib
  1132.         (help (cat #t_ahidevhelp @copylib-help))
  1133.         (prompt (cat #t_installing "ahi.device" #ver68k))
  1134.         (source (cat "User/Devs/ahi.device" #ver68k))
  1135.         (dest #devspath)
  1136.         (newname "ahi.device")
  1137.         (confirm)
  1138.     )
  1139.  
  1140. ;** AddAudioModes
  1141.     (copylib
  1142.         (help (cat #t_cpathhelp @copylib-help))
  1143.         (prompt #t_installing "AddAudioModes")
  1144.         (source "User/C/AddAudioModes")
  1145.         (dest #cpath)
  1146.         (confirm)
  1147.     )
  1148.     (protect (tackon #cpath "AddAudioModes") "+e")
  1149.  
  1150. ;** Drivers
  1151.  
  1152.     (if (bitand #drivers #delfina)
  1153.         (P_INSTDRIVER "delfina.audio" "DELFINA")
  1154.     )
  1155.     (if (bitand #drivers #filesave)
  1156.         (P_INSTDRIVER "filesave.audio" "FILESAVE")
  1157.     )
  1158.     (if (bitand #drivers #paula)
  1159.         (P_INSTDRIVER "paula.audio" "PAULA")
  1160.     )
  1161.     (if (bitand #drivers #prelude)
  1162.         (P_INSTDRIVER "prelude.audio" "PRELUDE")
  1163.     )
  1164.     (if (bitand #drivers #toccata)
  1165.         (P_INSTDRIVER "toccata.audio" "TOCCATA")
  1166.     )
  1167.     (if (bitand #drivers #wavetools)
  1168.         (P_INSTDRIVER "wavetools.audio" "WAVETOOLS")
  1169.     )
  1170.  
  1171.     (run (cat (tackon #cpath "AddAudioModes") " REMOVE")
  1172.         (prompt #t_runaddmodes)
  1173.         (help #t_nohelp)
  1174.         (confirm)
  1175.     )
  1176.  
  1177.     (set @default-dest #devspath)
  1178. ))
  1179.  
  1180.  
  1181. ;**
  1182. ;** Install the catalogs
  1183. ;**
  1184.  
  1185. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1186. (if (bitand #parts (bitor #system #prefs))
  1187. (
  1188. ;** Catalogs
  1189.     (if (bitand #languages #deutsch)
  1190.         (P_INSTCATALOG #t_deutsch)
  1191.     )
  1192.     (if (bitand #languages #español)
  1193.         (P_INSTCATALOG #t_español)
  1194.     )
  1195.     (if (bitand #languages #français)
  1196.         (P_INSTCATALOG #t_français)
  1197.     )
  1198.     (if (bitand #languages #greek)
  1199.         (P_INSTCATALOG #t_greek)
  1200.     )
  1201.     (if (bitand #languages #íslenska)
  1202.         (P_INSTCATALOG #t_íslenska)
  1203.     )
  1204.     (if (bitand #languages #italiano)
  1205.         (P_INSTCATALOG #t_italiano)
  1206.     )
  1207.     (if (bitand #languages #nederlands)
  1208.         (P_INSTCATALOG #t_nederlands)
  1209.     )
  1210.     (if (bitand #languages #norsk)
  1211.         (P_INSTCATALOG #t_norsk)
  1212.     )
  1213.     (if (bitand #languages #português)
  1214.         (P_INSTCATALOG #t_português)
  1215.     )
  1216.     (if (bitand #languages #svenska)
  1217.         (P_INSTCATALOG #t_svenska)
  1218.     )
  1219.     (if (bitand #languages #suomi)
  1220.         (P_INSTCATALOG #t_suomi)
  1221.     )
  1222. ))
  1223.  
  1224. ;**
  1225. ;** Install the autodocs
  1226. ;**
  1227.  
  1228. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1229. (if (bitand #devfiles #devdocs)
  1230. (
  1231.     (if (bitand #parts #a-developer)
  1232.         (set #pattern "~(#?sub#?)"))
  1233.  
  1234.     (if (bitand #parts #d-developer)
  1235.         (set #pattern "(#?sub#?)"))
  1236.  
  1237.     (if (and (bitand #parts #a-developer) (bitand #parts #d-developer))
  1238.         (set #pattern "#?"))
  1239.  
  1240.     (makedir #devdocspath)
  1241.     (copyfiles
  1242.         (help @copylib-help)
  1243.         (prompt #t_installingdocs )
  1244.         (source "Developer/docs/")
  1245.         (dest #devdocspath)
  1246.         (pattern #pattern)
  1247.         (confirm average)
  1248.         (infos)
  1249.         (noposition)
  1250.     )
  1251.  
  1252.     (set @default-dest #devdocspath)
  1253. ))
  1254.  
  1255. ;**
  1256. ;** Install the include files
  1257. ;**
  1258.  
  1259. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1260. (if (bitand #devfiles #fd)
  1261. (
  1262.     (copyfiles
  1263.         (help @copylib-help)
  1264.         (prompt #t_installingincs)
  1265.         (source "Developer/Include/FD")
  1266.         (dest #fdpath)
  1267.         (all)
  1268.     )
  1269.  
  1270.     (set @default-dest #fdpath)
  1271. ))
  1272.  
  1273. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1274. (if (bitand #devfiles #asm)
  1275. (
  1276.     (copyfiles
  1277.         (help @copylib-help)
  1278.         (prompt #t_installingincs)
  1279.         (source "Developer/include/Asm")
  1280.         (dest #aincpath)
  1281.         (all)
  1282.     )
  1283.     (set @default-dest #aincpath)
  1284. ))
  1285.  
  1286. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1287. (if (bitand #devfiles #cgen)
  1288. (
  1289.     (copyfiles
  1290.         (help @copylib-help)
  1291.         (prompt #t_installingincs)
  1292.         (source "Developer/Include/C")
  1293.         (dest #cincpath)
  1294.         (all)
  1295.     )
  1296.  
  1297.     (set @default-dest #cincpath)
  1298. ))
  1299.  
  1300. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1301. (if (bitand #devfiles #e)
  1302. (
  1303.     (copyfiles
  1304.         (help @copylib-help)
  1305.         (prompt #t_installingincs)
  1306.         (source "Developer/Include/E")
  1307.         (dest #emodpath)
  1308.         (all)
  1309.     )
  1310.  
  1311.     (set @default-dest #emodpath)
  1312. ))
  1313.  
  1314. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1315. (if (bitand #devfiles #ade)
  1316. (
  1317.     (copyfiles
  1318.         (help @copylib-help)
  1319.         (prompt #t_installingincs)
  1320.         (source "Developer/Include/ADE")
  1321.         (dest #adeincpath)
  1322.         (all)
  1323.     )
  1324.  
  1325.     (set @default-dest #adeincpath)
  1326. ))
  1327.  
  1328. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1329. (if (bitand #devfiles #sas)
  1330. (
  1331.     (copyfiles
  1332.         (help @copylib-help)
  1333.         (prompt #t_installingincs)
  1334.         (source "Developer/Include/SAS")
  1335.         (dest #sasincpath)
  1336.         (all)
  1337.     )
  1338.  
  1339.     (set @default-dest #sasincpath)
  1340. ))
  1341.  
  1342. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1343. (if (bitand #devfiles #storm)
  1344. (
  1345.     (copyfiles
  1346.         (help @copylib-help)
  1347.         (prompt #t_installingincs)
  1348.         (source "Developer/Include/Storm")
  1349.         (dest #stormincpath)
  1350.         (all)
  1351.     )
  1352.  
  1353.     (set @default-dest #stormincpath)
  1354. ))
  1355.  
  1356. ;** 
  1357. ;** Install the examples
  1358. ;**
  1359.  
  1360. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1361. (if (bitand #devfiles #source)
  1362. (
  1363.     (if (bitand #parts #a-developer)
  1364.     (
  1365.         (makedir (tackon #srcpath "examples/"))
  1366.         (copyfiles
  1367.             (help @copylib-help)
  1368.             (prompt #t_installingsrc)
  1369.             (source "Developer/examples")
  1370.             (dest (tackon #srcpath "examples/"))
  1371.             (all)
  1372.         )
  1373.     ))
  1374.     (if (bitand #parts #d-developer)
  1375.     (
  1376.         (makedir (tackon #srcpath "drivers/"))
  1377.         (copyfiles
  1378.             (help @copylib-help)
  1379.             (prompt #t_installingsrc)
  1380.             (source "Developer/drivers")
  1381.             (dest (tackon #srcpath "drivers/"))
  1382.             (all)
  1383.         )
  1384.         (makedir (tackon #srcpath "support/"))
  1385.         (copyfiles
  1386.             (help @copylib-help)
  1387.             (prompt #t_installingsrc)
  1388.             (source "Developer/support")
  1389.             (dest (tackon #srcpath "support/"))
  1390.             (all)
  1391.         )
  1392.     ))
  1393.     (if (bitand #parts (bitor #a-developer #d-developer))
  1394.     (
  1395.         (copyfiles
  1396.             (help @copylib-help)
  1397.             (prompt #t_installingsrc)
  1398.             (source "")
  1399.             (dest #srcpath)
  1400.             (pattern "(COPYRIGHT|HISTORY|VERSION|ahi.readme)#?")
  1401.         )
  1402.     ))
  1403.  
  1404.     (set @default-dest #srcpath)
  1405. ))
  1406.  
  1407.  
  1408.  
  1409.  
  1410. (complete 100)
  1411. (exit)
  1412.